home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earcd
/
grafica
/
video easel
/
camrexx
/
camparityflip.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-30
|
349b
|
18 lines
/* CAM-Parity-Flip 1.00 © THOR 1995 by an idea of Toffoli */
MakeAlgorithm:
PLANEALGORITHM neumann centers
return
MakePlane:
if plane=0 then; do
newplane=center ^ north ^ south ^ west ^ east ^ center_
if newplane=0 then SETPLANE off
else SETPLANE on
end; else; do
SETPLANE center
end
return